home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / PLACES.FAS < prev    next >
Text File  |  1994-02-05  |  41KB  |  740 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SETF-SYMBOL
  4.    REMOVE-OLD-DEFINITIONS
  5.    #Y(SETF-SYMBOL
  6.       #32Y(01 00 00 00 00 02 D5 A9 6E 7C 8E 00 0E C1 F6 D7 AB 6E 7E D8 6F 05 13 30 CA 19 02 14 30
  7.            CC 1A 6E
  8.           )
  9.       "(SETF " "#" ":" ")"
  10.   )  )
  11. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-SETF-SYMBOL
  12.    REMOVE-OLD-DEFINITIONS
  13.    #Y(GET-SETF-SYMBOL
  14.       #39Y(01 00 00 00 00 02 A8 D5 37 01 31 76 1D 17 A8 D6 37 01 8B 76 06 D7 D8 AA 2C 03 04 A8 6B
  15.            05 A9 D5 A9 31 7A 19 03 19 02
  16.           )
  17.       SETF-FUNCTION SETF-EXPANDER "The function (~S ~S) is hidden by a SETF expander." SETF WARN
  18.       SETF-SYMBOL
  19.   )  )
  20. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-FUNNAME-SYMBOL
  21.    REMOVE-OLD-DEFINITIONS
  22.    #Y(GET-FUNNAME-SYMBOL #19Y(01 00 00 00 00 02 99 1F 07 99 57 74 2E 00 19 02 99 19 02)
  23.       GET-SETF-SYMBOL
  24.   )  )
  25. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  26.    GET-SETF-METHOD-MULTIPLE-VALUE REMOVE-OLD-DEFINITIONS
  27.    #Y(GET-SETF-METHOD-MULTIPLE-VALUE
  28.       #313Y(01 00 01 00 00 08 3A 01 06 01 02 7E 02 00 01 9A 1F 1B 90 02 8B 03 16 90 02 A9 C0 5A 14
  29.             87 01 0D 90 02 D7 37 01 6E 76 8E 00 80 57 16 01 A9 AA AA 7C 5A 03 22 5A A9 8A 03 80 B9
  30.             9A 1F 06 90 02 8A 03 80 C3 DD AA 5E 01 37 01 6E 82 01 02 91 06 1A 0C 37 01 6E 82 80 02
  31.             90 00 80 01 7F 00 98 20 71 A8 7D 43 01 A9 A9 AC 77 01 AE AD AF 77 01 32 02 20 76 90 0B
  32.             9F 76 3F 05 19 08 91 01 AC AC 35 02 19 05 14 8A 03 41 90 00 A7 23 03 6E 01 03 D9 91 08
  33.             5F 1A 3A 79 06 C4 F8 8F 06 1C 1A 1E DA A8 90 0C 5E 02 A7 8B 7F 76 A7 80 03 1A 1E 83 01
  34.             00 A9 AE 88 FE 60 8E 06 04 A9 8A 88 68 37 01 6E 82 A7 80 06 A8 80 05 A7 80 04 16 01 81
  35.             02 7F 01 A8 89 92 5A 16 03 90 07 A8 31 43 58 F6 37 01 6E 82 AA 6E 43 AA 6E 43 A9 77 01
  36.             91 08 AC AC 72 02 AC 3F 05 19 09 37 01 6E 82 01 02 A9 77 01 DB AE AC 77 03 AE 3F 05 19
  37.             04 37 01 6E 82 01 02 91 05 1A 0C 37 01 6E 82 80 02 90 00 80 01 7F 00 98 20 71 A8 7D 43
  38.             01 A9 A9 AC 77 01 DC 90 0A 77 02 AE 9F 78 02 90 0A 9F 76 3F 05 19 07
  39.            )
  40.       1. GLOBAL-IN-FENV-P SETF-EXPANDER -5. 0. "The argument ~S to ~S should be a keyword." SETQ
  41.       SETF "Argument ~S is not a SETF place."
  42.   )  )
  43. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-SETF-METHOD
  44.    REMOVE-OLD-DEFINITIONS
  45.    #Y(GET-SETF-METHOD
  46.       #41Y(01 00 01 00 00 08 3A 01 06 01 02 7E 02 00 01 A9 A9 2F 00 41 05 9A 1F 0D 9A 57 1B 09 AB
  47.            AB AB AB AB 3F 05 19 08 D6 AF 5E 01
  48.           )
  49.       GET-SETF-METHOD-MULTIPLE-VALUE "SETF place ~S produces more than one store variable."
  50.   )  )
  51. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SIMPLE-ASSIGNMENT-P
  52.    REMOVE-OLD-DEFINITIONS
  53.    #Y(SIMPLE-ASSIGNMENT-P
  54.       #50Y(02 00 00 00 00 03 A8 6E 41 C0 55 1E 23 A9 31 01 1E 1E 90 02 C1 55 1E 18 A9 6E 41 C2 55
  55.            1E 11 9A 57 74 31 03 1E 0A 9A 57 57 74 90 02 2F 03 19 03 19 03
  56.           )
  57.       1. SETQ 3. SIMPLE-USE-P
  58.   )  )
  59. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SIMPLE-USE-P
  60.    REMOVE-OLD-DEFINITIONS
  61.    #Y(SIMPLE-USE-P
  62.       #40Y(02 00 00 00 00 03 A9 9A 55 1D 1B A9 31 01 1E 16 90 02 C0 55 1E 10 A9 6E 41 C1 55 1E 09
  63.            9A 57 57 74 A9 28 02 05 60 19 03
  64.           )
  65.       THE 3.
  66.   )  )
  67. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DOCUMENTATION
  68.    REMOVE-OLD-DEFINITIONS
  69.    #Y(DOCUMENTATION
  70.       #30Y(02 00 00 00 00 03 A9 85 00 0F A9 6B 03 D9 37 01 6E 76 A9 37 01 31 77 19 03 D6 D7 AB 5E
  71.            02
  72.           )
  73.       FUNCTION-NAME-P "~S: first argument ~S is illegal, not a symbol" DOCUMENTATION
  74.       GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
  75.   )  )
  76. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) %SET-DOCUMENTATION
  77.    REMOVE-OLD-DEFINITIONS
  78.    #Y(%SET-DOCUMENTATION
  79.       #119Y(03 00 00 00 00 04 AA 85 00 1D AA 2E 03 F9 8F 01 1B AA D9 37 01 6E 76 AA AA 6A 03 06 8F
  80.             00 05 AB D9 A9 31 7A 9A 19 05 D6 D7 AC 5E 02 AA D9 37 01 6E 76 AA 37 01 8B 77 3C AA D9
  81.             37 01 6E 76 A7 5F 1A 2D DA 5E 00 75 9A 57 75 30 A9 16 03 1A 25 8E 00 73 9A 57 57 F8 AD
  82.             D9 AB 31 7A 16 03 1A 15 99 57 1F 5F 90 01 9E 21 67 99 57 75 9A F7 66 01 99 20 6D 16 03
  83.             00 19 04
  84.            )
  85.       FUNCTION-NAME-P "~S: first argument ~S is illegal, not a symbol" DOCUMENTATION
  86.       GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS "REMF: property list with an odd length" %PUTF
  87.   )  )
  88. #Y(#:TOP-LEVEL-FORM-11 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) PUSH
  89.    REMOVE-OLD-DEFINITIONS MACRO
  90.    #Y(PUSH
  91.       #104Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2C 38 9A 57 74 9B 57 57 74 37 01 6E 82 A8 AC
  92.             2F 02 41 05 D8 AC AC 6F 01 17 8E 00 23 A0 FC D9 AE AA 77 03 AA AC 86 05 1F A8 90 05 A9
  93.             77 02 77 01 7E 02 21 01 8E 01 1C 9B 19 0D A9 2E 01 19 03 AD B0 77 02 80 00 1A 57 A7 90
  94.             05 AC 37 03 7C AB 03 8F 01 64 DB A9 AC 5C 03 19 0D
  95.            )
  96.       3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST CONS SIMPLE-ASSIGNMENT-P LET*
  97.   )  )
  98. #Y(#:TOP-LEVEL-FORM-12 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  99.    DEFINE-SETF-METHOD REMOVE-OLD-DEFINITIONS MACRO
  100.    #Y(DEFINE-SETF-METHOD
  101.       #239Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 C8 9A 57 74 9B 57 57 74 9C 57 57 75 A9
  102.             8B 03 80 BD A7 60 AD 30 60 41 03 8E 02 02 C3 F8 D9 AD 6E 7E 6F 02 13 6D CA AC A8 2F 05
  103.             41 02 C6 10 07 C6 10 08 00 10 09 00 10 0A 00 10 0B 00 10 0C BA E2 BD E3 2C 04 0F 8E 13
  104.             03 E5 80 16 E3 6B 11 E7 67 0A 6E 43 8E 19 80 7B 00 14 67 0B 62 1C 32 03 20 78 02 8F 01
  105.             11 E9 A9 EA EB EC 62 21 77 02 03 18 78 03 AA 5C 04 F6 EE EF F0 5F F1 62 1B E3 8E 1B 02
  106.             03 1D 14 77 02 8E 1B 80 51 03 1E 14 AF 77 01 32 02 20 78 03 F4 EC 62 23 77 02 F5 61 21
  107.             61 22 61 23 62 21 77 02 77 03 77 04 61 24 EC 62 24 77 02 61 25 EC 62 21 77 02 77 04 EC
  108.             62 24 77 02 77 06 5C 03 16 02 12 06 19 0C A9 2E 01 19 03 D7 AA 5E 01 E8 04 1A 76 5C 01
  109.             1A FF 7D 00 1A FF AD
  110.            )
  111.       3. MACRO-CALL-ERROR "The name of the access function must be a symbol, not ~S" (NIL) "SETF-"
  112.       REMOVE-ENV-ARG 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  113.       (CDR %LAMBDA-LIST) %LAMBDA-LIST ANALYZE1 (IGNORE %LAMBDA-LIST) MAKE-LENGTH-TEST LET* DECLARE
  114.       IF ERROR "The SETF expander for ~S may not be called with ~S arguments." QUOTE
  115.       ((1- (LENGTH %LAMBDA-LIST))) EVAL-WHEN (LOAD COMPILE EVAL) LET DEFUN ENV
  116.       ((DECLARE (IGNORE ENV))) %PUT 'SETF-EXPANDER CONS -5. FUNCTION %SET-DOCUMENTATION 'SETF
  117.   )  )
  118. #Y(#:TOP-LEVEL-FORM-13 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFSETF
  119.    REMOVE-OLD-DEFINITIONS MACRO
  120.    #Y(DEFSETF
  121.       #326Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 2B 9A 57 74 9B 57 75 98 1F 0A 90 00 8A 08
  122.             05 90 00 8A 03 2D 98 1F 10 90 00 8B 08 0B 98 57 1F 07 98 57 74 8A 08 80 66 61 28 A9 5E
  123.             01 A9 2E 01 19 03 DF 91 09 5E 01 A0 57 57 1B 76 E0 A1 57 74 5E 01 D7 D8 D9 5F DA DB AE
  124.             77 02 DC DB 90 08 77 02 77 04 DD DB AF 77 02 DE A0 57 57 1B 59 A0 57 56 1C 06 A0 57 74
  125.             8B 04 4E A0 57 74 77 04 DB AF 77 02 77 05 5C 03 19 05 E3 5E 00 0E 12 1A 80 5A 03 1E 1A
  126.             80 61 F5 04 1C 76 5C 01 1A 80 63 98 57 74 6E 41 E1 8C 01 2B 0E 98 57 74 6E 41 E2 8C 01
  127.             2B 56 E4 E5 2F 11 98 57 75 60 AC 30 60 41 03 5F 90 04 9D 57 56 74 CD 10 12 CD 10 13 00
  128.             10 14 00 10 15 00 10 16 00 10 17 BA ED 62 1B EE 2C 04 1A F0 BB 37 03 88 B3 FF A3 03 1C
  129.             09 14 F2 EE BB 77 02 8F 15 FF 9B 00 14 F4 67 15 6E 43 8E 1B FF 95 00 14 67 16 62 1E 32
  130.             03 20 78 02 77 01 32 02 20 5D 02 12 06 16 01 F6 D7 61 21 D9 5F DA DB B3 77 02 61 22 61
  131.             23 B0 61 24 61 25 B8 6C 26 B2 77 03 77 03 77 04 DD DB B4 77 02 61 27 B1 77 04 DB B4 77
  132.             02 77 05 5C 03 19 0A
  133.            )
  134.       2. MACRO-CALL-ERROR EVAL-WHEN (LOAD COMPILE EVAL) LET %PUT QUOTE 'SETF-EXPANDER
  135.       %SET-DOCUMENTATION 'SETF "Too many arguments to DEFSETF: ~S"
  136.       "The doc string to DEFSETF must be a string: ~S" 1. 0. "Missing store variable in DEFSETF."
  137.       "The excess variables will be ignored." "Only one store variable is allowed in DEFSETF."
  138.       CERROR %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  139.       (CDR %ACCESS-ARGLIST) %ACCESS-ARGLIST ANALYZE1 &KEY -1. LAMBDA
  140.       ((DECLARE (IGNORE %ACCESS-ARGLIST))) LET* DECLARE (LOAD COMPILE EVAL) 'SETF-EXPANDER CONS
  141.       FUNCTION "SETF-" CONCAT-PNAMES 'SETF "Illegal syntax in DEFSETF for ~S"
  142.   )  )
  143. #Y(#:TOP-LEVEL-FORM-14 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) POP
  144.    REMOVE-OLD-DEFINITIONS MACRO
  145.    #Y(POP
  146.       #126Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2C 80 50 9A 57 74 A7 AA 2F 02 41 05 AB AB 5F
  147.             8F 02 0F 90 02 90 02 77 02 80 00 7F 02 7F 01 8E 02 71 AA 8B 03 05 AB AD 86 03 2E 90 05
  148.             AB 77 02 80 00 9D 56 14 D9 A8 77 02 DA DB AA 77 02 AF B1 86 03 19 DC 90 0A AB 77 03 B0
  149.             5C 02 78 02 8E 03 17 15 19 0E A9 2E 01 19 03 9B 1A 58 A9 90 0A B1 37 03 6D AB 5C 01 1A
  150.             64 DD AB 6E 43 A9 5C 03 19 0F
  151.            )
  152.       2. MACRO-CALL-ERROR GET-SETF-METHOD SIMPLE-ASSIGNMENT-P CDR PROG1 CAR SETQ LET*
  153.   )  )
  154. #Y(#:TOP-LEVEL-FORM-15 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) PSETF
  155.    REMOVE-OLD-DEFINITIONS MACRO
  156.    #Y(PSETF
  157.       #87Y(01 00 01 00 00 08 3C 01 91 02 A7 01 02 1A 38 D5 D6 AF 5E 02 9A 57 1F 77 90 02 AD 2F 02
  158.            41 05 AB AB 8F 01 0F 90 01 90 01 77 02 80 08 7F 01 7F 00 8E 01 71 16 02 90 02 A0 57 74
  159.            77 02 80 06 A8 80 05 16 05 9A 57 57 F8 9A 20 4A D8 A9 6E 43 A9 D9 32 02 20 5D 02 19 07
  160.           )
  161.       "~S called with an odd number of arguments: ~S" PSETF GET-SETF-METHOD LET* (NIL)
  162.   )  )
  163. #Y(#:TOP-LEVEL-FORM-16 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) PUSHNEW
  164.    REMOVE-OLD-DEFINITIONS MACRO
  165.    #Y(PUSHNEW
  166.       #109Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 3D 9A 57 74 9B 57 57 74 9C 57 57 75 37 01
  167.             6E 82 A9 AD 2F 02 41 05 D8 AC AC 6F 01 17 8E 00 24 A1 FC D9 AE AA A2 78 03 AA AC 86 05
  168.             1F A8 90 05 A9 77 02 77 01 7E 02 21 01 8E 01 1C 9B 19 0E A9 2E 01 19 03 AD B1 77 02 80
  169.             00 1A 56 A7 90 05 AC 37 03 7C AB 03 8F 01 64 DB A9 AC 5C 03 19 0E
  170.            )
  171.       3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST ADJOIN SIMPLE-ASSIGNMENT-P LET*
  172.   )  )
  173. #Y(#:TOP-LEVEL-FORM-17 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) REMF
  174.    REMOVE-OLD-DEFINITIONS MACRO
  175.    #Y(REMF
  176.       #183Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2C 80 97 9A 57 74 9B 57 57 74 A8 AB 2F 02 41
  177.             05 AB AB 5F 37 01 6E 82 37 01 6E 82 37 01 6E 82 8F 05 0F 90 05 90 05 77 02 80 03 7F 05
  178.             7F 04 8E 05 71 90 08 AE 77 02 80 03 A9 B3 77 02 80 03 D8 AB 6E 43 D9 AB 90 0C DA AE 77
  179.             02 77 03 AB 5F AE 77 03 77 02 DB AD 77 02 C7 76 DD DB DE B0 77 02 77 02 CA 76 E0 E1 B1
  180.             77 02 B2 77 03 E2 B0 E3 DE B3 77 02 DA B5 77 02 77 03 DA 90 14 77 02 BA BC 86 0F 1D E5
  181.             E6 90 16 AA 77 03 BC 5C 03 F6 77 04 D2 78 02 77 03 77 04 5C 03 19 10 A9 2E 01 19 03 A7
  182.             90 15 BC 37 03 30 AB 1A 63
  183.            )
  184.       3. MACRO-CALL-ERROR GET-SETF-METHOD LET* DO CDDR ATOM (NIL) COND CDR
  185.       ((ERROR "REMF: property list with an odd length")) EQ CAR IF RPLACD SIMPLE-ASSIGNMENT-P PROGN
  186.       SETQ ((RETURN T))
  187.   )  )
  188. #Y(#:TOP-LEVEL-FORM-18 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) ROTATEF
  189.    REMOVE-OLD-DEFINITIONS MACRO
  190.    #Y(ROTATEF
  191.       #106Y(01 00 01 00 00 08 3C 01 91 02 8F 00 09 98 57 1C 08 A7 01 04 1A 3E 00 19 04 D5 90 01 C1
  192.             5D 02 19 04 90 04 AF 2F 02 41 05 AB AB 8F 01 0F 90 01 90 01 77 02 80 0A 7F 01 7F 00 8E
  193.             01 71 16 02 AD A8 77 02 80 08 8E 05 03 83 08 05 A8 80 07 83 02 06 16 05 7F 04 9C 20 4A
  194.             A7 A9 30 A8 D8 AB 6E 43 AB 6E 43 D9 32 02 20 5D 02 19 09
  195.            )
  196.       PROGN (NIL) GET-SETF-METHOD LET* (NIL)
  197.   )  )
  198. #Y(#:TOP-LEVEL-FORM-19 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  199.    DEFINE-MODIFY-MACRO REMOVE-OLD-DEFINITIONS MACRO
  200.    #Y(DEFINE-MODIFY-MACRO
  201.       #245Y(01 00 01 00 00 08 D5 AA 6E 41 D6 8D 02 2F 80 41 9A 57 74 9B 57 57 74 9C 57 57 57 74 AC
  202.             6D 95 01 02 AB 5F 8F 01 80 5E 83 01 00 14 23 03 80 50 A7 23 04 2E A7 23 07 3D A7 23 08
  203.             39 A7 23 09 35 A7 8A 03 34 A7 8B 08 05 90 00 8A 03 2E CB 14 A8 5E 01 A9 2E 02 19 03 DA
  204.             AF 9B 57 74 5E 02 16 02 1A 26 99 57 74 8B 03 6F 99 57 56 F8 99 57 57 1C 6D DB A9 5E 01
  205.             CA 1A 56 98 1A 02 98 56 14 80 03 7F 01 8E 01 FF A2 16 02 A8 7D 43 01 E1 AD E2 AE E3 32
  206.             02 20 76 AC E4 E5 E6 E7 E8 E9 EA EB EC ED EE EF BA 77 02 F0 B9 B9 77 01 32 02 20 78 03
  207.             03 1C 78 02 77 02 77 03 F2 F3 F4 F5 61 21 F3 61 22 61 23 EE EF BF 77 02 F0 BE BE 77 01
  208.             32 02 20 78 03 77 04 EE EF BD 77 02 F0 BC BC 77 01 32 02 20 78 03 77 04 77 03 03 24 78
  209.             02 03 25 78 03 77 03 77 04 5C 05 19 09
  210.            )
  211.       4. 5. MACRO-CALL-ERROR &OPTIONAL &REST
  212.       "In the definition of ~S: &REST variable ~S should be a symbol."
  213.       "Only one variable is allowed after &REST, not ~S" &KEY &ALLOW-OTHER-KEYS &AUX
  214.       "Illegal in a DEFINE-MODIFY-MACRO lambda list: ~S"
  215.       "lambda list may only contain symbols and lists, not ~S" DEFMACRO %REFERENCE
  216.       (&ENVIRONMENT ENV) MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
  217.       (GET-SETF-METHOD %REFERENCE ENV) DO
  218.       ((D DUMMIES (CDR D)) (V VALS (CDR V)) (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST)))
  219.       (NULL D) WHEN (SYMBOLP GETTER) RETURN SUBST LIST* QUOTE GETTER ((CAR NEWVAL) SETTER) PUSH
  220.       LIST (CAR NEWVAL) IF (AND (LISTP %REFERENCE) (EQ (CAR %REFERENCE) 'THE)) 'THE
  221.       (CADR %REFERENCE) (LET-LIST) ((LIST 'LET* (NREVERSE LET-LIST) SETTER))
  222.   )  )
  223. #Y(#:TOP-LEVEL-FORM-20 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DECF
  224.    REMOVE-OLD-DEFINITIONS MACRO
  225.    #Y(DECF
  226.       #136Y(01 00 01 00 00 08 3C 01 D5 AA 6E 41 D6 8D 02 2F 80 4D 9A 57 74 9B 57 57 1B 80 49 C3 14
  227.             A8 AB 2F 04 41 05 AB AB 5F 8F 02 13 91 02 91 02 90 04 90 04 77 02 80 02 66 02 66 02 8E
  228.             02 6D AA 8A 03 2B 90 05 B1 8B 08 05 90 0A 23 06 2F DA AC B2 00 5D 03 14 77 02 80 00 DC
  229.             A8 6E 43 AD 5C 03 19 0D A9 2E 02 19 03 9B 57 57 56 1A FF B1 DA AB B1 00 78 03 90 06 AD
  230.             37 03 30 AB 19 0D DB A3 57 74 DA AE B4 00 78 03 5C 03 1A 49
  231.            )
  232.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD - THE LET*
  233.   )  )
  234. #Y(#:TOP-LEVEL-FORM-21 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) INCF
  235.    REMOVE-OLD-DEFINITIONS MACRO
  236.    #Y(INCF
  237.       #136Y(01 00 01 00 00 08 3C 01 D5 AA 6E 41 D6 8D 02 2F 80 4D 9A 57 74 9B 57 57 1B 80 49 C3 14
  238.             A8 AB 2F 04 41 05 AB AB 5F 8F 02 13 91 02 91 02 90 04 90 04 77 02 80 02 66 02 66 02 8E
  239.             02 6D AA 8A 03 2B 90 05 B1 8B 08 05 90 0A 23 06 2F DA AC B2 00 5D 03 14 77 02 80 00 DC
  240.             A8 6E 43 AD 5C 03 19 0D A9 2E 02 19 03 9B 57 57 56 1A FF B1 DA AB B1 00 78 03 90 06 AD
  241.             37 03 30 AB 19 0D DB A3 57 74 DA AE B4 00 78 03 5C 03 1A 49
  242.            )
  243.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD + THE LET*
  244.   )  )
  245. #Y(#:TOP-LEVEL-FORM-22 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) SETF
  246.    REMOVE-OLD-DEFINITIONS MACRO
  247.    #Y(SETF
  248.       #368Y(01 00 01 00 00 08 3C 01 91 02 A7 6E 41 A7 23 00 81 1B A7 8A 87 81 54 A8 5F 8F 01 11 DB
  249.             90 02 9B 57 74 77 03 80 00 99 57 57 F7 8E 01 6F E9 5F EA AA 31 43 58 14 5C 03 19 07 A7
  250.             91 03 AA 77 01 32 02 20 58 19 08 DB 9B 57 57 74 D9 9D 57 74 AC 77 03 5C 03 19 08 DC DB
  251.             9C 57 74 DD AC 77 02 77 03 5C 02 19 08 DF 90 06 B2 77 02 9A 76 6E 43 9E 1A 80 97 15 16
  252.             01 1C 80 5A 1A 80 84 14 8A 03 FF B9 90 02 24 04 07 A9 6E 41 23 05 FF B9 90 02 24 07 07
  253.             A9 6E 41 23 00 FF BD A9 AE 2F 09 41 05 AB AB 5F 8F 02 0F 90 02 90 02 77 02 80 00 7F 02
  254.             7F 01 8E 02 71 AC 6E 41 23 01 FF AA 9C 1F 80 41 90 04 24 0B 3C AC 91 05 8E 01 28 99 54
  255.             1B FF A4 16 02 1C 2D E2 91 05 6F 00 17 DF A9 6E 43 E3 AA B5 77 03 E0 9C 76 5C 04 19 11
  256.             91 01 7F 01 66 01 8F 01 58 8F 00 55 90 00 90 02 77 01 86 0C 6B 16 02 DF A8 6E 43 E4 AF
  257.             B4 B0 5C 04 14 5C 03 19 10 E5 A9 9A 1A FF 20 A8 AD 2F 09 41 05 DF E6 AD AD 6F 01 17 AE
  258.             90 05 AC 37 03 6D AB 5C 03 19 0C 90 01 9A 57 74 99 1F 1B 90 01 8B 03 16 90 01 AD C1 5A
  259.             14 87 02 0D 90 01 D8 37 01 6E 76 8E 00 FF 2D 16 01 A8 A9 AE 7C 5A 02 22 5A A8 8A 03 FF
  260.             B1 9E 1F 06 90 06 8A 03 FF AE E7 90 04 5E 01 E8 DB AD 5E 02
  261.            )
  262.       2. 1. GLOBAL-IN-FENV-P SETF-EXPANDER THE 3. SETF VALUES-LIST MULTIPLE-VALUE-LIST
  263.       GET-SETF-METHOD-MULTIPLE-VALUE LET* VALUES SIMPLE-ASSIGNMENT-P #.#'SECOND MULTIPLE-VALUE-SETQ
  264.       MULTIPLE-VALUE-BIND SETQ #.#'LIST "Illegal SETF place: ~S"
  265.       "~S called with an odd number of arguments: ~S" LET PROGN
  266.   )  )
  267. #Y(#:TOP-LEVEL-FORM-23 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) SHIFTF
  268.    REMOVE-OLD-DEFINITIONS MACRO
  269.    #Y(SHIFTF
  270.       #105Y(01 00 01 00 00 08 3C 01 91 02 A7 6E 41 D5 8C 01 2D 0A 37 01 6E 82 A8 01 02 AA 1A 31 D6
  271.             AB 5E 01 90 03 AF 2F 02 41 05 AB AB 8F 01 0F 90 01 90 01 77 02 80 09 7F 01 7F 00 8E 01
  272.             71 16 02 AC A8 77 02 80 07 A8 80 06 83 02 05 16 05 7F 03 9B 57 20 4F A7 90 04 77 02 80
  273.             02 D8 AA 6E 43 AA 6E 43 AE 77 01 32 02 20 5D 02 19 09
  274.            )
  275.       2. "SHIFTF called with too few arguments: ~S" GET-SETF-METHOD LET*
  276.   )  )
  277. #Y(#:TOP-LEVEL-FORM-24 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01) AREF
  278.    SETF-EXPANDER -1.
  279.    #Y(SETF-AREF #25Y(02 00 00 00 00 03 9A 57 74 9B 57 75 D5 A9 A9 AD 77 01 32 02 20 5D 02 19 05)
  280.       STORE
  281.      )
  282.    SETF %SET-DOCUMENTATION
  283.   )
  284. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) %SETNTH
  285.    REMOVE-OLD-DEFINITIONS
  286.    #Y(%SETNTH #25Y(03 00 00 00 00 04 AA AA 6D 9B 8F 00 07 A7 AA 30 A7 9A 19 05 D5 AC AC 5E 02)
  287.       "(SETF (NTH ...) ...) : index ~S is too large for ~S"
  288.   )  )
  289. #Y(#:TOP-LEVEL-FORM-26 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) NTH
  290.    SETF-EXPANDER %SETNTH SETF %SET-DOCUMENTATION
  291.   )
  292. #Y(#:TOP-LEVEL-FORM-27 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) ELT
  293.    SETF-EXPANDER %SETELT SETF %SET-DOCUMENTATION
  294.   )
  295. #Y(#:TOP-LEVEL-FORM-28 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) REST
  296.    SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  297.   )
  298. #Y(#:TOP-LEVEL-FORM-29 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) FIRST
  299.    SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  300.   )
  301. #Y(#:TOP-LEVEL-FORM-30 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  302.    SECOND SETF-EXPANDER -1.
  303.    #Y(SETF-SECOND #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDR) SETF
  304.    %SET-DOCUMENTATION
  305.   )
  306. #Y(#:TOP-LEVEL-FORM-31 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  307.    THIRD SETF-EXPANDER -1.
  308.    #Y(SETF-THIRD #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDDR) SETF
  309.    %SET-DOCUMENTATION
  310.   )
  311. #Y(#:TOP-LEVEL-FORM-32 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  312.    FOURTH SETF-EXPANDER -1.
  313.    #Y(SETF-FOURTH #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDDDR)
  314.    SETF %SET-DOCUMENTATION
  315.   )
  316. #Y(#:TOP-LEVEL-FORM-33 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  317.    FIFTH SETF-EXPANDER -1.
  318.    #Y(SETF-FIFTH #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDDDDR)
  319.    SETF %SET-DOCUMENTATION
  320.   )
  321. #Y(#:TOP-LEVEL-FORM-34 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  322.    SIXTH SETF-EXPANDER -1.
  323.    #Y(SETF-SIXTH #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 D7 AA 77 02 77 02 AB 5C 03 19 04) %RPLACA
  324.       CDR CDDDDR
  325.      )
  326.    SETF %SET-DOCUMENTATION
  327.   )
  328. #Y(#:TOP-LEVEL-FORM-35 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  329.    SEVENTH SETF-EXPANDER -1.
  330.    #Y(SETF-SEVENTH #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 D7 AA 77 02 77 02 AB 5C 03 19 04) %RPLACA
  331.       CDDR CDDDDR
  332.      )
  333.    SETF %SET-DOCUMENTATION
  334.   )
  335. #Y(#:TOP-LEVEL-FORM-36 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  336.    EIGHTH SETF-EXPANDER -1.
  337.    #Y(SETF-EIGHTH #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 D7 AA 77 02 77 02 AB 5C 03 19 04) %RPLACA
  338.       CDDDR CDDDDR
  339.      )
  340.    SETF %SET-DOCUMENTATION
  341.   )
  342. #Y(#:TOP-LEVEL-FORM-37 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  343.    NINTH SETF-EXPANDER -1.
  344.    #Y(SETF-NINTH #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 D6 AA 77 02 77 02 AB 5C 03 19 04) %RPLACA
  345.       CDDDDR
  346.      )
  347.    SETF %SET-DOCUMENTATION
  348.   )
  349. #Y(#:TOP-LEVEL-FORM-38 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  350.    TENTH SETF-EXPANDER -1.
  351.    #Y(SETF-TENTH #25Y(02 00 00 00 00 03 9A 57 74 D5 D6 D7 D7 AB 77 02 77 02 77 02 AB 5C 03 19 04)
  352.       %RPLACA CDR CDDDDR
  353.      )
  354.    SETF %SET-DOCUMENTATION
  355.   )
  356. #Y(#:TOP-LEVEL-FORM-39 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) CAR
  357.    SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  358.   )
  359. #Y(#:TOP-LEVEL-FORM-40 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) CDR
  360.    SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  361.   )
  362. #Y(#:TOP-LEVEL-FORM-41 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01) CAAR
  363.    SETF-EXPANDER -1.
  364.    #Y(SETF-CAAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CAR) SETF
  365.    %SET-DOCUMENTATION
  366.   )
  367. #Y(#:TOP-LEVEL-FORM-42 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01) CADR
  368.    SETF-EXPANDER -1.
  369.    #Y(SETF-CADR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDR) SETF
  370.    %SET-DOCUMENTATION
  371.   )
  372. #Y(#:TOP-LEVEL-FORM-43 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01) CDAR
  373.    SETF-EXPANDER -1.
  374.    #Y(SETF-CDAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CAR) SETF
  375.    %SET-DOCUMENTATION
  376.   )
  377. #Y(#:TOP-LEVEL-FORM-44 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01) CDDR
  378.    SETF-EXPANDER -1.
  379.    #Y(SETF-CDDR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CDR) SETF
  380.    %SET-DOCUMENTATION
  381.   )
  382. #Y(#:TOP-LEVEL-FORM-45 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  383.    CAAAR SETF-EXPANDER -1.
  384.    #Y(SETF-CAAAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CAAR) SETF
  385.    %SET-DOCUMENTATION
  386.   )
  387. #Y(#:TOP-LEVEL-FORM-46 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  388.    CAADR SETF-EXPANDER -1.
  389.    #Y(SETF-CAADR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CADR) SETF
  390.    %SET-DOCUMENTATION
  391.   )
  392. #Y(#:TOP-LEVEL-FORM-47 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  393.    CADAR SETF-EXPANDER -1.
  394.    #Y(SETF-CADAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDAR) SETF
  395.    %SET-DOCUMENTATION
  396.   )
  397. #Y(#:TOP-LEVEL-FORM-48 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  398.    CADDR SETF-EXPANDER -1.
  399.    #Y(SETF-CADDR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDDR) SETF
  400.    %SET-DOCUMENTATION
  401.   )
  402. #Y(#:TOP-LEVEL-FORM-49 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  403.    CDAAR SETF-EXPANDER -1.
  404.    #Y(SETF-CDAAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CAAR) SETF
  405.    %SET-DOCUMENTATION
  406.   )
  407. #Y(#:TOP-LEVEL-FORM-50 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  408.    CDADR SETF-EXPANDER -1.
  409.    #Y(SETF-CDADR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CADR) SETF
  410.    %SET-DOCUMENTATION
  411.   )
  412. #Y(#:TOP-LEVEL-FORM-51 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  413.    CDDAR SETF-EXPANDER -1.
  414.    #Y(SETF-CDDAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CDAR) SETF
  415.    %SET-DOCUMENTATION
  416.   )
  417. #Y(#:TOP-LEVEL-FORM-52 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  418.    CDDDR SETF-EXPANDER -1.
  419.    #Y(SETF-CDDDR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CDDR) SETF
  420.    %SET-DOCUMENTATION
  421.   )
  422. #Y(#:TOP-LEVEL-FORM-53 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  423.    CAAAAR SETF-EXPANDER -1.
  424.    #Y(SETF-CAAAAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CAAAR)
  425.    SETF %SET-DOCUMENTATION
  426.   )
  427. #Y(#:TOP-LEVEL-FORM-54 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  428.    CAAADR SETF-EXPANDER -1.
  429.    #Y(SETF-CAAADR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CAADR)
  430.    SETF %SET-DOCUMENTATION
  431.   )
  432. #Y(#:TOP-LEVEL-FORM-55 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  433.    CAADAR SETF-EXPANDER -1.
  434.    #Y(SETF-CAADAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CADAR)
  435.    SETF %SET-DOCUMENTATION
  436.   )
  437. #Y(#:TOP-LEVEL-FORM-56 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  438.    CAADDR SETF-EXPANDER -1.
  439.    #Y(SETF-CAADDR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CADDR)
  440.    SETF %SET-DOCUMENTATION
  441.   )
  442. #Y(#:TOP-LEVEL-FORM-57 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  443.    CADAAR SETF-EXPANDER -1.
  444.    #Y(SETF-CADAAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDAAR)
  445.    SETF %SET-DOCUMENTATION
  446.   )
  447. #Y(#:TOP-LEVEL-FORM-58 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  448.    CADADR SETF-EXPANDER -1.
  449.    #Y(SETF-CADADR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDADR)
  450.    SETF %SET-DOCUMENTATION
  451.   )
  452. #Y(#:TOP-LEVEL-FORM-59 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  453.    CADDAR SETF-EXPANDER -1.
  454.    #Y(SETF-CADDAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDDAR)
  455.    SETF %SET-DOCUMENTATION
  456.   )
  457. #Y(#:TOP-LEVEL-FORM-60 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  458.    CADDDR SETF-EXPANDER -1.
  459.    #Y(SETF-CADDDR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACA CDDDR)
  460.    SETF %SET-DOCUMENTATION
  461.   )
  462. #Y(#:TOP-LEVEL-FORM-61 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  463.    CDAAAR SETF-EXPANDER -1.
  464.    #Y(SETF-CDAAAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CAAAR)
  465.    SETF %SET-DOCUMENTATION
  466.   )
  467. #Y(#:TOP-LEVEL-FORM-62 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  468.    CDAADR SETF-EXPANDER -1.
  469.    #Y(SETF-CDAADR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CAADR)
  470.    SETF %SET-DOCUMENTATION
  471.   )
  472. #Y(#:TOP-LEVEL-FORM-63 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  473.    CDADAR SETF-EXPANDER -1.
  474.    #Y(SETF-CDADAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CADAR)
  475.    SETF %SET-DOCUMENTATION
  476.   )
  477. #Y(#:TOP-LEVEL-FORM-64 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  478.    CDADDR SETF-EXPANDER -1.
  479.    #Y(SETF-CDADDR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CADDR)
  480.    SETF %SET-DOCUMENTATION
  481.   )
  482. #Y(#:TOP-LEVEL-FORM-65 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  483.    CDDAAR SETF-EXPANDER -1.
  484.    #Y(SETF-CDDAAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CDAAR)
  485.    SETF %SET-DOCUMENTATION
  486.   )
  487. #Y(#:TOP-LEVEL-FORM-66 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  488.    CDDADR SETF-EXPANDER -1.
  489.    #Y(SETF-CDDADR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CDADR)
  490.    SETF %SET-DOCUMENTATION
  491.   )
  492. #Y(#:TOP-LEVEL-FORM-67 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  493.    CDDDAR SETF-EXPANDER -1.
  494.    #Y(SETF-CDDDAR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CDDAR)
  495.    SETF %SET-DOCUMENTATION
  496.   )
  497. #Y(#:TOP-LEVEL-FORM-68 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  498.    CDDDDR SETF-EXPANDER -1.
  499.    #Y(SETF-CDDDDR #19Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 77 02 AB 5C 03 19 04) %RPLACD CDDDR)
  500.    SETF %SET-DOCUMENTATION
  501.   )
  502. #Y(#:TOP-LEVEL-FORM-69 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) SVREF
  503.    SETF-EXPANDER SVSTORE SETF %SET-DOCUMENTATION
  504.   )
  505. #Y(#:TOP-LEVEL-FORM-70 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01) GET
  506.    SETF-EXPANDER -1.
  507.    #Y(SETF-GET
  508.       #37Y(02 00 00 00 00 03 9A 57 74 9B 57 57 74 9C 57 57 57 74 D5 AA AA AE 77 04 8E 01 03 15 19
  509.            06 D6 A9 A9 5C 03 19 07
  510.           )
  511.       %PUT PROGN
  512.      )
  513.    SETF %SET-DOCUMENTATION
  514.   )
  515. #Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) %PUTF
  516.    REMOVE-OLD-DEFINITIONS
  517.    #Y(%PUTF
  518.       #43Y(03 00 00 00 00 04 AA 1A 18 D5 5E 00 91 00 AA 30 A7 00 19 05 98 57 1F 71 90 00 9C 21 6F
  519.            98 57 57 F6 98 20 70 AA AA 9E 5D 02 19 05
  520.           )
  521.       "(SETF (GETF ...) ...) : property list with an odd length"
  522.   )  )
  523. #Y(#:TOP-LEVEL-FORM-72
  524.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  525.    #1=#:SETF-GETF REMOVE-OLD-DEFINITIONS
  526.    #Y(#1#
  527.       #131Y(02 00 00 00 00 03 D5 AA 6E 41 D6 8D 02 2F 80 5B 9A 57 74 9B 57 57 74 9C 57 57 57 74 A9
  528.             AC 2F 04 41 05 37 01 6E 82 37 01 6E 82 8E 07 80 46 00 14 AE A9 9A 76 6F 02 20 AE B2 8E
  529.             0B 80 40 00 76 6F 02 20 AB 77 01 DA 90 09 DB B0 AF B1 77 04 77 02 77 01 AC DC 90 0C B3
  530.             77 03 B0 77 02 32 02 20 78 02 D8 AF AE 9F 78 03 3F 05 19 0E D7 D8 AB 6E 41 6E 8A 5E 02
  531.             37 01 6E 82 5C 01 1A FF B2 14 5C 01 1A FF BB
  532.            )
  533.       3. 4. "The SETF expander for ~S may not be called with ~S arguments." GETF GET-SETF-METHOD
  534.       LET %PUTF WHEN
  535.      )
  536.    GETF SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  537.   )
  538. #Y(#:TOP-LEVEL-FORM-73 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  539.    GETHASH SETF-EXPANDER -1.
  540.    #Y(SETF-GETHASH
  541.       #37Y(02 00 00 00 00 03 9A 57 74 9B 57 57 74 9C 57 57 57 74 D5 AA AA AE 77 04 8E 01 03 15 19
  542.            06 D6 A9 A9 5C 03 19 07
  543.           )
  544.       PUTHASH PROGN
  545.      )
  546.    SETF %SET-DOCUMENTATION
  547.   )
  548. #Y(#:TOP-LEVEL-FORM-74 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 02 C0 19 01)
  549.    DOCUMENTATION SETF-EXPANDER %SET-DOCUMENTATION SETF
  550.   )
  551. #Y(#:TOP-LEVEL-FORM-75 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  552.    FILL-POINTER SETF-EXPANDER SET-FILL-POINTER SETF %SET-DOCUMENTATION
  553.   )
  554. #Y(#:TOP-LEVEL-FORM-76 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  555.    READTABLE-CASE SETF-EXPANDER SET-READTABLE-CASE SETF %SET-DOCUMENTATION
  556.   )
  557. #Y(#:TOP-LEVEL-FORM-77 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  558.    SYMBOL-VALUE SETF-EXPANDER SET SETF %SET-DOCUMENTATION
  559.   )
  560. #Y(#:TOP-LEVEL-FORM-78 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  561.    SYMBOL-FUNCTION SETF-EXPANDER %PUTD SETF %SET-DOCUMENTATION
  562.   )
  563. #Y(#:TOP-LEVEL-FORM-79 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  564.    SYMBOL-PLIST SETF-EXPANDER %PUTPLIST SETF %SET-DOCUMENTATION
  565.   )
  566. #Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SET-FDEFINITION
  567.    REMOVE-OLD-DEFINITIONS
  568.    #Y(SET-FDEFINITION #14Y(02 00 00 00 00 03 A9 6B 00 A9 31 74 19 03) GET-FUNNAME-SYMBOL)
  569.   )
  570. #Y(#:TOP-LEVEL-FORM-81 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  571.    FDEFINITION SETF-EXPANDER SET-FDEFINITION SETF %SET-DOCUMENTATION
  572.   )
  573. #Y(#:TOP-LEVEL-FORM-82 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  574.    MACRO-FUNCTION SETF-EXPANDER -1.
  575.    #Y(SETF-MACRO-FUNCTION
  576.       #32Y(02 00 00 00 00 03 9A 57 74 D5 D6 D7 AA 77 02 D8 D9 AE 77 03 77 03 DA AA C6 78 02 AC 5C
  577.            04 19 04
  578.           )
  579.       PROGN SETF SYMBOL-FUNCTION CONS 'MACRO REMPROP ('MACRO)
  580.      )
  581.    SETF %SET-DOCUMENTATION
  582.   )
  583. #Y(#:TOP-LEVEL-FORM-83 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) CHAR
  584.    SETF-EXPANDER STORE-CHAR SETF %SET-DOCUMENTATION
  585.   )
  586. #Y(#:TOP-LEVEL-FORM-84 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) SCHAR
  587.    SETF-EXPANDER STORE-SCHAR SETF %SET-DOCUMENTATION
  588.   )
  589. #Y(#:TOP-LEVEL-FORM-85 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) BIT
  590.    SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  591.   )
  592. #Y(#:TOP-LEVEL-FORM-86 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) SBIT
  593.    SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  594.   )
  595. #Y(#:TOP-LEVEL-FORM-87 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  596.    SUBSEQ SETF-EXPANDER -1.
  597.    #Y(SETF-SUBSEQ
  598.       #33Y(02 00 00 00 00 03 9A 57 74 9B 57 57 74 9C 57 57 57 74 D5 D6 AB AE D7 AD D8 AE 77 07 AD
  599.            5C 03 19 06
  600.           )
  601.       PROGN REPLACE :START1 :END1
  602.      )
  603.    SETF %SET-DOCUMENTATION
  604.   )
  605. #Y(#:TOP-LEVEL-FORM-88
  606.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  607.    #1=#:SETF-CHAR-BIT REMOVE-OLD-DEFINITIONS
  608.    #Y(#1#
  609.       #88Y(02 00 00 00 00 03 A9 6E 41 D5 8C 01 2C 80 40 9A 57 74 9B 57 57 74 A8 AB 2F 03 41 05 37
  610.            01 6E 82 37 01 6E 82 AD A9 77 01 6F 02 20 AD B0 77 01 6F 02 20 A9 77 01 D9 90 08 DA AF
  611.            AF AF 77 04 77 02 77 01 AF AD 77 04 D7 AE AE 77 03 3F 05 19 0C D6 D7 AB 6E 41 6E 8A 5E
  612.            02
  613.           )
  614.       3. "The SETF expander for ~S may not be called with ~S arguments." CHAR-BIT GET-SETF-METHOD
  615.       LET SET-CHAR-BIT
  616.      )
  617.    CHAR-BIT SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  618.   )
  619. #Y(#:TOP-LEVEL-FORM-89
  620.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  621.    #1=#:SETF-LDB REMOVE-OLD-DEFINITIONS
  622.    #Y(#1#
  623.       #79Y(02 00 00 00 00 03 A9 6E 41 D5 8C 01 2C 38 9A 57 74 9B 57 57 74 A7 AB 2F 03 41 05 37 01
  624.            6E 82 37 01 6E 82 A8 9F 76 B0 9F 76 A9 77 01 D9 90 08 DA AD AF B1 77 04 77 02 77 01 AF
  625.            AD 77 04 D7 AD AF 77 03 3F 05 19 0C D6 D7 AB 6E 41 6E 8A 5E 02
  626.           )
  627.       3. "The SETF expander for ~S may not be called with ~S arguments." LDB GET-SETF-METHOD LET
  628.       DPB
  629.      )
  630.    LDB SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  631.   )
  632. #Y(#:TOP-LEVEL-FORM-90
  633.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  634.    #1=#:SETF-MASK-FIELD REMOVE-OLD-DEFINITIONS
  635.    #Y(#1#
  636.       #79Y(02 00 00 00 00 03 A9 6E 41 D5 8C 01 2C 38 9A 57 74 9B 57 57 74 A7 AB 2F 03 41 05 37 01
  637.            6E 82 37 01 6E 82 A8 9F 76 B0 9F 76 A9 77 01 D9 90 08 DA AD AF B1 77 04 77 02 77 01 AF
  638.            AD 77 04 D7 AD AF 77 03 3F 05 19 0C D6 D7 AB 6E 41 6E 8A 5E 02
  639.           )
  640.       3. "The SETF expander for ~S may not be called with ~S arguments." MASK-FIELD GET-SETF-METHOD
  641.       LET DEPOSIT-FIELD
  642.      )
  643.    MASK-FIELD SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  644.   )
  645. #Y(#:TOP-LEVEL-FORM-91
  646.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  647.    #1=#:SETF-THE REMOVE-OLD-DEFINITIONS
  648.    #Y(#1#
  649.       #61Y(02 00 00 00 00 03 A9 6E 41 D5 8C 01 2C 26 9A 57 74 9B 57 57 74 A7 AB 2F 03 41 05 AB AB
  650.            AB D7 B1 90 07 77 03 90 06 AD 37 03 6D AB D7 B2 AD 77 03 3F 05 19 0A D6 D7 AB 6E 41 6E
  651.            8A 5E 02
  652.           )
  653.       3. "The SETF expander for ~S may not be called with ~S arguments." THE GET-SETF-METHOD
  654.      )
  655.    THE SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  656.   )
  657. #Y(#:TOP-LEVEL-FORM-92
  658.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  659.    #1=#:SETF-APPLY REMOVE-OLD-DEFINITIONS
  660.    #Y(#1#
  661.       #121Y(02 00 00 00 00 03 A9 6E 41 D5 8C 01 2D 80 5A 9A 57 74 9B 57 75 A8 8B 08 80 58 A8 6D 93
  662.             24 00 80 51 90 01 24 03 80 4B 99 57 74 8B 03 80 44 99 57 56 F7 A8 99 76 AB 2F 05 41 05
  663.             AC 30 9C 74 AB 30 9C 56 22 31 00 2A 01 AC 30 9C 56 0B 00 00 98 2A 01 A7 2B 07 01 0B 00
  664.             00 A7 69 08 01 AE AE AE AE 9C 70 AE 9D 70 3F 05 19 0D D6 D7 AB 6E 41 6E 8A 5E 02 D9 5E
  665.             00 DB AE 5E 01
  666.            )
  667.       2. "The SETF expander for ~S may not be called with ~S arguments." APPLY FUNCTION
  668.       "SETF APPLY is only defined for functions of the form #'symbol." GET-SETF-METHOD
  669.       "APPLY on ~S is not a SETF place."
  670.       #Y(SPLICE
  671.          #40Y(01 00 00 00 00 02 A8 88 92 13 91 01 68 78 90 02 65 01 01 88 FE 0A 90 02 A8 2F 02 19
  672.               03 00 19 02 65 01 01 A8 2F 01 19 03
  673.              )
  674.          NIL BACKQUOTE-APPEND BACKQUOTE-CONS
  675.         )
  676.       #Y(CALL-SPLICING
  677.          #60Y(01 00 00 00 00 02 90 01 91 02 07 00 01 70 8F 00 21 98 1F 05 90 00 23 01 19 D7 D8 AA
  678.               77 02 9A 1F 0A 90 02 23 04 12 90 02 23 05 0D A9 5C 01 5D 02 19 04 A8 99 57 58 19 04
  679.               9A 57 1A 72
  680.              )
  681.          NIL LIST APPLY FUNCTION LIST* CONS
  682.      )  )
  683.    APPLY SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  684.   )
  685. #Y(#:TOP-LEVEL-FORM-93
  686.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  687.    #1=#:SETF-FUNCALL REMOVE-OLD-DEFINITIONS
  688.    #Y(#1#
  689.       #80Y(02 00 00 00 00 03 A9 6E 41 D5 8C 01 2D 2F 9A 57 74 9B 57 75 A8 8B 08 35 A8 6D 93 24 00
  690.            2F 90 01 A7 C3 55 1C 21 16 01 1C 24 99 57 74 8B 03 1E 99 57 56 F7 1C 18 A8 99 76 AB 2F
  691.            06 19 05 D6 D7 AB 6E 41 6E 8A 5E 02 A7 C4 55 16 01 1B 5C DA 5E 00
  692.           )
  693.       2. "The SETF expander for ~S may not be called with ~S arguments." FUNCALL FUNCTION QUOTE
  694.       "SETF FUNCALL is only defined for functions of the form #'symbol." GET-SETF-METHOD
  695.      )
  696.    FUNCALL SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  697.   )
  698. #Y(#:TOP-LEVEL-FORM-94 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  699.    GET-DISPATCH-MACRO-CHARACTER SETF-EXPANDER -1.
  700.    #Y(SETF-GET-DISPATCH-MACRO-CHARACTER
  701.       #41Y(02 00 00 00 00 03 9A 57 74 9B 57 57 74 9C 57 57 57 1B 0F C0 14 D6 D7 AB AB AF AC 77 05
  702.            AD 5C 03 19 06 9C 57 57 57 56 1A 6B
  703.           )
  704.       *READTABLE* PROGN SET-DISPATCH-MACRO-CHARACTER
  705.      )
  706.    SETF %SET-DOCUMENTATION
  707.   )
  708. #Y(#:TOP-LEVEL-FORM-95 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  709.    LONG-FLOAT-DIGITS SETF-EXPANDER %SET-LONG-FLOAT-DIGITS SETF %SET-DOCUMENTATION
  710.   )
  711. #Y(#:TOP-LEVEL-FORM-96 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 C0 19 01)
  712.    DEFAULT-DIRECTORY SETF-EXPANDER -1.
  713.    #Y(SETF-DEFAULT-DIRECTORY #16Y(02 00 00 00 00 03 D5 D6 AA 77 02 AA 5C 03 19 03) PROGN CD) SETF
  714.    %SET-DOCUMENTATION
  715.   )
  716. #Y(#:TOP-LEVEL-FORM-97
  717.    #30Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 94 00 76 31 7A D8 DB 5F 2C 03 07 C3 19 01)
  718.    #1=#:SETF-VALUES REMOVE-OLD-DEFINITIONS
  719.    #Y(#1# #27Y(02 00 00 00 00 03 91 02 A7 AA 2F 00 41 05 AB AB AB D6 9D 76 D6 9D 76 3F 05 19 09)
  720.       SETF-VALUES-AUX VALUES
  721.      )
  722.    VALUES SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  723.   )
  724. #Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SETF-VALUES-AUX
  725.    REMOVE-OLD-DEFINITIONS
  726.    #Y(SETF-VALUES-AUX
  727.       #75Y(02 00 00 00 00 03 01 05 AE 1A 20 90 00 7F 01 AF 2F 00 41 05 AB B2 7C A1 0A AA B1 7C A1
  728.            09 A9 B0 7C A1 08 A8 80 07 A7 80 06 16 05 98 20 5D AC 7D 43 05 AB 7D 43 04 AA 7D 43 03
  729.            A9 7D 43 02 A8 7D 43 01 AC AC AC AC AC 3F 05 19 09
  730.           )
  731.       GET-SETF-METHOD
  732.   )  )
  733. #Y(#:TOP-LEVEL-FORM-99 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  734.    MULTIPLE-VALUE-SETF REMOVE-OLD-DEFINITIONS MACRO
  735.    #Y(MULTIPLE-VALUE-SETF
  736.       #55Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2C 22 9A 57 74 9B 57 57 74 A8 AB 2F 02 41 05
  737.            D8 D9 AD AD 6F 01 17 DA AC B0 AD DB 32 02 20 78 03 5C 03 19 0A A9 2E 01 19 03
  738.           )
  739.       3. MACRO-CALL-ERROR SETF-VALUES-AUX LET* #.#'LIST MULTIPLE-VALUE-BIND ((FIRST STORES))
  740.   )  )